'============================================================================
'ZedGraph Class Library - A Flexible Charting Library for .Net
'Copyright (C) 2005 John Champion and Jerry Vos
'
'This library is free software; you can redistribute it and/or
'modify it under the terms of the GNU Lesser General Public
'License as published by the Free Software Foundation; either
'version 2.1 of the License, or (at your option) any later version.
'
'This library is distributed in the hope that it will be useful,
'but WITHOUT ANY WARRANTY; without even the implied warranty of
'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
'Lesser General Public License for more details.
'
'You should have received a copy of the GNU Lesser General Public
'License along with this library; if not, write to the Free Software
'Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
'=============================================================================

Public Class graph
    Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents ZedGraphWeb1 As ZedGraph.ZedGraphWeb

    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
    End Sub

    Private Sub ZedGraphWeb1_RenderGraph(ByVal g As System.Drawing.Graphics, ByVal mpane As ZedGraph.MasterPane) Handles ZedGraphWeb1.RenderGraph
        Dim Val As String
        Val = Page.Request.Params.Get("graph")

        Dim pane As ZedGraph.GraphPane
        pane = mpane(0)
        If (Val = "2") Then
            ZedGraph.ZedGraphWeb.RenderDemo(g, pane)
            pane.Title = "Graph Number 2"
        Else
            ZedGraph.ZedGraphWeb.RenderDemo(g, pane)
            pane.Title = "Graph Number 1"
        End If
    End Sub
End Class
